home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK11⁄89.cpt / Using Repeat / background_2687.txt < prev    next >
Text File  |  1989-11-02  |  7KB  |  304 lines
  1. -- background: 2687 from stack: in
  2. -- bmap block id: 3078
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Main Bkgnd
  6. ----- HyperTalk script -----
  7. on newCard
  8.   tabKey
  9. end newCard
  10.  
  11. on enterKey
  12.   go next
  13. end enterKey
  14.  
  15. on opencard
  16.   repeat with i = 8 to 9
  17.     show bg btn i
  18.   end repeat
  19.   put "on mouseUp"&return into var
  20.   put fld "script" &return after var
  21.   put "end mouseUp"&return after var
  22.   set script of bkgnd button "Try it" to var
  23. end openCard
  24.  
  25.  
  26. -- part 3 (button)
  27. -- low flags: 00
  28. -- high flags: 2000
  29. -- rect: left=469 top=25 right=46 bottom=497
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 11045 / 11045
  32. -- text alignment: 1
  33. -- font id: 3
  34. -- text size: 9
  35. -- style flags: 256
  36. -- line height: 12
  37. -- part name: New Button
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   play "hastalavista"
  41.   --repeat while the sound is not "done"
  42.   --wait 1 sec
  43.   go to card id 5341 of stack "HOME"
  44.   --end repeat
  45. end mouseUp
  46.  
  47.  
  48.  
  49.  
  50. -- part 4 (button)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=242 top=310 right=332 bottom=285
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 22308 / 22308
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Multi-Next
  62. ----- HyperTalk script -----
  63. on mouseDown
  64.   visual scroll left
  65.   go to next card of this bkgnd
  66.   put the ticks into tickHolder
  67.   repeat until (the mouse is up)
  68.     if (the ticks - tickHolder) > 30
  69.     then
  70.     go to next card of this bkgnd
  71.     put the ticks into tickHolder
  72.   end if
  73. end repeat
  74. end mouseDown
  75.  
  76.  
  77.  
  78. -- part 5 (button)
  79. -- low flags: 00
  80. -- high flags: 0000
  81. -- rect: left=200 top=310 right=332 bottom=243
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 19381 / 19381
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: Multi-Prev
  90. ----- HyperTalk script -----
  91. on mouseDown
  92.   visual scroll right
  93.   go to prev card of this bkgnd
  94.   put the ticks into tickHolder
  95.   repeat until (the mouse is up)
  96.     if (the ticks - tickHolder) > 30
  97.     then
  98.     go to prev card of this bkgnd
  99.     put the ticks into tickHolder
  100.   end if
  101. end repeat
  102. end mouseDown
  103.  
  104.  
  105.  
  106. -- part 6 (button)
  107. -- low flags: 00
  108. -- high flags: 0000
  109. -- rect: left=443 top=275 right=312 bottom=483
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 14953 / 14953
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Return
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   visual iris close to grey
  121.   visual iris open
  122.   pop card
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 8 (field)
  128. -- low flags: 01
  129. -- high flags: 0000
  130. -- rect: left=64 top=32 right=51 bottom=424
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 1280
  137. -- line height: 16
  138. -- part name: Title
  139. ----- HyperTalk script -----
  140. on enterInField
  141.   Set name of this card to field "title"
  142. end enterInField
  143.  
  144.  
  145. -- part 20 (button)
  146. -- low flags: 00
  147. -- high flags: 8003
  148. -- rect: left=394 top=311 right=333 bottom=505
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: Go LImacSTACK
  157. ----- HyperTalk script -----
  158. on mouseUp
  159.   push cd
  160.   convert the date to dateitems
  161.   put item 2 of it into stackMonth
  162.   go stack "LImacSTACK."& stackMonth & "/89"
  163. end mouseUp
  164.  
  165.  
  166.  
  167. -- part 21 (button)
  168. -- low flags: 00
  169. -- high flags: 8003
  170. -- rect: left=24 top=311 right=333 bottom=135
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: go Help Stack
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   answer "Click EXIT in the Help stack to get back here."
  182.   push cd
  183.   put fld 1 into whatFind
  184.   go card id 59861 of stack "Help"
  185.   find whatFind --in fld 1
  186.   --if the result is not empty then go card "HyperTalk" of stack "Help"
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 22 (button)
  192. -- low flags: 00
  193. -- high flags: 0000
  194. -- rect: left=436 top=25 right=46 bottom=469
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 26635 / 26635
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: New Button
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   push cd
  206.   visual wipe down to black
  207.   visual wipe up
  208.   go card "Help"
  209. end mouseUp
  210.  
  211.  
  212.  
  213. -- part 24 (field)
  214. -- low flags: 00
  215. -- high flags: 6004
  216. -- rect: left=100 top=134 right=286 bottom=392
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 0
  220. -- font id: 3
  221. -- text size: 9
  222. -- style flags: 0
  223. -- line height: 12
  224. -- part name: script
  225. ----- HyperTalk script -----
  226. on closeField
  227.   put "on mouseUp"&return into var
  228.   put fld "script" &return after var
  229.   put "end mouseUp"&return after var
  230.   set script of bkgnd button "Try it" to var
  231. end closeField
  232.  
  233.  
  234. -- part 25 (button)
  235. -- low flags: 00
  236. -- high flags: A003
  237. -- rect: left=33 top=134 right=183 bottom=92
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 1013 / 1013
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: Try it
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   repeat 3 -- repeat [for] <number of times>
  249.     beep
  250.   end repeat
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 26 (field)
  256. -- low flags: 80
  257. -- high flags: 0000
  258. -- rect: left=369 top=58 right=279 bottom=503
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 0
  262. -- font id: 3
  263. -- text size: 9
  264. -- style flags: 0
  265. -- line height: 12
  266. -- part name: holder
  267.  
  268.  
  269. -- part 27 (button)
  270. -- low flags: 00
  271. -- high flags: A003
  272. -- rect: left=400 top=134 right=186 bottom=504
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 1
  276. -- font id: 3
  277. -- text size: 9
  278. -- style flags: 0
  279. -- line height: 12
  280. -- part name: Reset field to Original
  281. ----- HyperTalk script -----
  282. on mouseUp
  283.   put fld "holder" into fld "script"
  284.   put "on mouseUp"&return into var
  285.   put fld "script" &return after var
  286.   put "end mouseUp"&return after var
  287.   set script of bkgnd button "Try it" to var
  288. end mouseUp
  289.  
  290.  
  291.  
  292. -- part 30 (field)
  293. -- low flags: 01
  294. -- high flags: 0000
  295. -- rect: left=64 top=61 right=129 bottom=424
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 0 / 0
  298. -- text alignment: 0
  299. -- font id: 0
  300. -- text size: 12
  301. -- style flags: 0
  302. -- line height: 16
  303. -- part name: 
  304.